home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / SCREEN / VIRTPRS1.PAS < prev    next >
Pascal/Delphi Source File  |  1996-08-14  |  1KB  |  31 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; presentation of virtual screens with effects #1
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBDEF, EFLIBINI, EFLIBBAS, EFLIBIO, EFLIBSCR;
  10.  
  11. var MyScreen : VirtualScreenObjectPointerType; X1, Y1 : byte;
  12.  
  13.  
  14. begin
  15.      Screen.Clear;
  16.      New (MyScreen, Initialize (1, 1, Screen.Width, Screen.Height));
  17.      with MyScreen^ do begin
  18.           { Generate a test screen }
  19.           for Y1 := 1 to 2 do for X1 := 1 to 4 do
  20.               FillArea (1 + (ScreenWidth div 4) * Pred(X1), 1 + (ScreenHeight div 2) * Pred(Y1),
  21.                         (ScreenWidth div 4) * X1, (ScreenHeight div 2) * Y1, Chr(219), X1 * Y1);
  22.  
  23.           { Present partial screen areas using explode effect }
  24.           for Y1 := 1 to 2 do for X1 := 1 to 4 do begin
  25.               PresentArea (1 + (ScreenWidth div 4) * Pred(X1), 1 + (ScreenHeight div 2) * Pred(Y1),
  26.                            (ScreenWidth div 4) * X1, (ScreenHeight div 2) * Y1,
  27.                            1 + (ScreenWidth div 4) * Pred(X1), 1 + (ScreenHeight div 2) * Pred(Y1), Fade, Upward, 0);
  28.           end;
  29.      end;
  30.      Dispose (MyScreen, Intercept);
  31. end.